home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / AACD / Programming / AmigaTalk / prelude / ByteArray.p < prev    next >
Text File  |  2000-04-24  |  918b  |  30 lines
  1. pTempVar <- <primitive 110 5 >
  2. <primitive 112 pTempVar 1  " size " \
  3.   #( #[ 16r20 16rFA 16r01 16r75 16rF3 16rF5] \
  4.     #(  )) >
  5.  
  6. <primitive 112 pTempVar 2  " printString " \
  7.   #( #[ 16r30 16r71 16r51 16r20 16rA3 16rB2 16rE1 16r02 16r0D 16r21 16r20 \
  8.         16r22 16rB1 16rA9 16r0B 16r11 16r31 16r0B 16r11 16rF1 16r71 \
  9.         16rF3 16rB3 16rF2 16r21 16r32 16r0B 16r11 16rF3 16rF5] \
  10.     #( '#[ ' ' ' ']'  )) >
  11.  
  12. <primitive 112 pTempVar 3  " at:put: " \
  13.   #( #[ 16r20 16r21 16r22 16rFA 16r03 16r77 16rF2 16rF5] \
  14.     #(  )) >
  15.  
  16. <primitive 112 pTempVar 4  " at: " \
  17.   #( #[ 16r20 16r21 16rFA 16r02 16r76 16rF3 16rF5] \
  18.     #(  )) >
  19.  
  20. <primitive 112 pTempVar 5  " new: " \
  21.   #( #[ 16r21 16rFA 16r01 16r74 16rF3 16rF5] \
  22.     #(  )) >
  23.  
  24. <primitive 98 #ByteArray \
  25.   <primitive 97 #ByteArray #ArrayedCollection #AmigaTalk:General/ByteArray.st \
  26.    #(  ) \
  27.    #( #size #printString #at:put: #at: #new:  ) \
  28.   pTempVar 3 6 >>
  29.  
  30.